home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Exec / Resident.i < prev    next >
Encoding:
Text File  |  1994-04-15  |  1.1 KB  |  52 lines

  1. {
  2.     Resident.i for PCQ Pascal
  3. }
  4.  
  5. {$I "Include:Exec/Nodes.i"}
  6.  
  7. type
  8.     Resident = record
  9.     rt_MatchWord    : Short;    { word to match on (ILLEGAL)    }
  10.     rt_MatchTag    : ^Resident;    { pointer to the above        }
  11.     rt_EndSkip    : Address;    { address to continue scan    }
  12.     rt_Flags    : Byte;        { various tag flags        }
  13.     rt_Version    : Byte;        { release version number    }
  14.     rt_Type        : Byte;        { type of module (NT_mumble)    }
  15.     rt_Pri        : Byte;        { initialization priority    }
  16.     rt_Name        : String;    { pointer to node name        }
  17.     rt_IdString    : String;    { pointer to ident string    }
  18.     rt_Init        : Address;    { pointer to init code        }
  19.     end;
  20.     ResidentPtr = ^Resident;
  21.  
  22. const
  23.  
  24.  
  25.     RTC_MATCHWORD    = $4AFC;
  26.  
  27.     RTF_AUTOINIT    = $80;
  28.     RTF_AFTERDOS    = $04;
  29.     RTF_SINGLETASK    = $02;
  30.     RTF_COLDSTART    = $01;
  31.  
  32.  
  33. { Compatibility: }
  34.  
  35.     RTM_WHEN        = $03;
  36.     RTW_COLDSTART    = $01;
  37.     RTW_NEVER        = $00;
  38.  
  39.  
  40. Function FindResident(name : String) : ResidentPtr;
  41.     External;
  42.  
  43. Procedure InitCode(startClass, version : Integer);
  44.     External;
  45.  
  46. Procedure InitResident(resident : ResidentPtr; segList : Address);
  47.     External;
  48.  
  49. Procedure SumKickData;
  50.     External;
  51.  
  52.